/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Apple II / Essentials / Essentials.sea / MPW IIGS Interfaces / PIIGSIncludes / Shell.p

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 53 68 65 6c 6c 2e | 70 00 00 00 00 00 00 00 |..Shell.|p.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 1e 28 00 | 00 01 1e a8 43 a6 83 a8 |......(.|....C...|
|00000060| 43 a6 83 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |C.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0d f4 00 00 |........|........|
|00000080| 7b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 3b 20 |********|*****.; |
|000000b0| 46 69 6c 65 3a 20 53 68 | 65 6c 6c 2e 70 0d 3b 0d |File: Sh|ell.p.;.|
|000000c0| 3b 0d 3b 20 43 6f 70 79 | 72 69 67 68 74 20 41 70 |;.; Copy|right Ap|
|000000d0| 70 6c 65 20 43 6f 6d 70 | 75 74 65 72 2c 20 49 6e |ple Comp|uter, In|
|000000e0| 63 2e 20 31 39 38 36 2d | 39 32 0d 3b 20 41 6c 6c |c. 1986-|92.; All|
|000000f0| 20 52 69 67 68 74 73 20 | 52 65 73 65 72 76 65 64 | Rights |Reserved|
|00000100| 0d 3b 0d 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;.*****|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 7d |********|*******}|
|00000130| 0d 0d 55 4e 49 54 20 53 | 48 45 4c 4c 3b 0d 49 4e |..UNIT S|HELL;.IN|
|00000140| 54 45 52 46 41 43 45 0d | 55 53 45 53 20 54 59 50 |TERFACE.|USES TYP|
|00000150| 45 53 2c 20 47 53 4f 53 | 3b 0d 0d 54 59 50 45 0d |ES, GSOS|;..TYPE.|
|00000160| 47 65 74 4c 49 6e 66 6f | 50 42 50 74 72 20 3d 20 |GetLInfo|PBPtr = |
|00000170| 5e 47 65 74 4c 49 6e 66 | 6f 50 42 3b 0d 47 65 74 |^GetLInf|oPB;.Get|
|00000180| 4c 49 6e 66 6f 50 42 20 | 3d 20 50 41 43 4b 45 44 |LInfoPB |= PACKED|
|00000190| 20 52 45 43 4f 52 44 0d | 20 20 20 20 73 66 69 6c | RECORD.|    sfil|
|000001a0| 65 20 3a 20 53 74 72 69 | 6e 67 50 74 72 3b 20 7b |e : Stri|ngPtr; {|
|000001b0| 20 61 64 64 72 65 73 73 | 20 6f 66 20 73 6f 75 72 | address| of sour|
|000001c0| 63 65 20 66 69 6c 65 20 | 6e 61 6d 65 20 7d 0d 20 |ce file |name }. |
|000001d0| 20 20 20 64 66 69 6c 65 | 20 3a 20 53 74 72 69 6e |   dfile| : Strin|
|000001e0| 67 50 74 72 3b 20 7b 20 | 61 64 64 72 65 73 73 20 |gPtr; { |address |
|000001f0| 6f 66 20 6f 75 74 70 75 | 74 20 66 69 6c 65 20 6e |of outpu|t file n|
|00000200| 61 6d 65 20 7d 0d 20 20 | 20 20 70 61 72 6d 73 20 |ame }.  |  parms |
|00000210| 3a 20 53 74 72 69 6e 67 | 50 74 72 3b 20 7b 20 61 |: String|Ptr; { a|
|00000220| 64 64 72 65 73 73 20 6f | 66 20 70 61 72 61 6d 65 |ddress o|f parame|
|00000230| 74 65 72 20 6c 69 73 74 | 20 7d 0d 20 20 20 20 69 |ter list| }.    i|
|00000240| 73 74 72 69 6e 67 20 3a | 20 53 74 72 69 6e 67 50 |string :| StringP|
|00000250| 74 72 3b 20 7b 20 61 64 | 64 72 65 73 73 20 6f 66 |tr; { ad|dress of|
|00000260| 20 6c 61 6e 67 75 61 67 | 65 20 73 70 65 63 69 66 | languag|e specif|
|00000270| 69 63 20 69 6e 70 75 74 | 20 73 74 72 69 6e 67 20 |ic input| string |
|00000280| 7d 0d 20 20 20 20 6d 65 | 72 72 20 3a 20 42 79 74 |}.    me|rr : Byt|
|00000290| 65 3b 20 7b 20 6d 61 78 | 20 65 72 72 6f 72 20 6c |e; { max| error l|
|000002a0| 65 76 65 6c 20 61 6c 6c | 6f 77 65 64 20 7d 0d 20 |evel all|owed }. |
|000002b0| 20 20 20 6d 65 72 72 66 | 20 3a 20 42 79 74 65 3b |   merrf| : Byte;|
|000002c0| 20 7b 20 6d 61 78 20 65 | 72 72 6f 72 20 6c 65 76 | { max e|rror lev|
|000002d0| 65 6c 20 66 6f 75 6e 64 | 20 7d 0d 20 20 20 20 6c |el found| }.    l|
|000002e0| 6f 70 73 20 3a 20 42 79 | 74 65 3b 20 7b 20 6f 70 |ops : By|te; { op|
|000002f0| 65 72 61 74 69 6f 6e 73 | 20 66 6c 61 67 20 7d 0d |erations| flag }.|
|00000300| 20 20 20 20 6b 66 6c 61 | 67 20 3a 20 42 79 74 65 |    kfla|g : Byte|
|00000310| 3b 20 7b 20 4b 45 45 50 | 20 66 6c 61 67 20 7d 0d |; { KEEP| flag }.|
|00000320| 20 20 20 20 6d 66 6c 61 | 67 73 20 3a 20 4c 6f 6e |    mfla|gs : Lon|
|00000330| 67 69 6e 74 3b 20 7b 20 | 73 65 74 20 6f 66 20 6c |gint; { |set of l|
|00000340| 65 74 74 65 72 73 20 73 | 65 6c 65 63 74 65 64 20 |etters s|elected |
|00000350| 77 69 74 68 20 27 2d 27 | 20 7d 0d 20 20 20 20 70 |with '-'| }.    p|
|00000360| 66 6c 61 67 73 20 3a 20 | 4c 6f 6e 67 69 6e 74 3b |flags : |Longint;|
|00000370| 20 7b 20 73 65 74 20 6f | 66 20 6c 65 74 74 65 72 | { set o|f letter|
|00000380| 73 20 73 65 6c 65 63 74 | 65 64 20 77 69 74 68 20 |s select|ed with |
|00000390| 27 2b 27 20 7d 0d 20 20 | 20 20 6f 72 67 20 3a 20 |'+' }.  |  org : |
|000003a0| 4c 6f 6e 67 69 6e 74 3b | 20 7b 20 61 62 73 20 73 |Longint;| { abs s|
|000003b0| 74 61 72 74 20 61 64 64 | 72 65 73 73 20 6f 66 20 |tart add|ress of |
|000003c0| 6e 6f 6e 2d 72 65 6c 6c | 6f 63 20 6c 6f 61 64 20 |non-rell|oc load |
|000003d0| 66 69 6c 65 20 7d 0d 45 | 4e 44 3b 0d 0d 7b 20 47 |file }.E|ND;..{ G|
|000003e0| 65 74 4c 49 6e 66 6f 2f | 53 65 74 4c 49 6e 66 6f |etLInfo/|SetLInfo|
|000003f0| 20 70 61 72 61 6d 65 74 | 65 72 20 62 6c 6f 63 6b | paramet|er block|
|00000400| 20 66 6f 72 20 6c 65 76 | 65 6c 20 31 20 63 61 6c | for lev|el 1 cal|
|00000410| 6c 73 20 7d 0d 47 65 74 | 4c 49 6e 66 6f 47 53 50 |ls }.Get|LInfoGSP|
|00000420| 42 50 74 72 20 3d 20 5e | 47 65 74 4c 49 6e 66 6f |BPtr = ^|GetLInfo|
|00000430| 47 53 50 42 3b 0d 47 65 | 74 4c 49 6e 66 6f 47 53 |GSPB;.Ge|tLInfoGS|
|00000440| 50 42 20 3d 20 50 41 43 | 4b 45 44 20 52 45 43 4f |PB = PAC|KED RECO|
|00000450| 52 44 0d 09 70 43 6f 75 | 6e 74 09 3a 09 49 6e 74 |RD..pCou|nt.:.Int|
|00000460| 65 67 65 72 3b 09 09 09 | 7b 20 70 61 72 61 6d 65 |eger;...|{ parame|
|00000470| 74 65 72 20 63 6f 75 6e | 74 20 7d 0d 09 73 66 69 |ter coun|t }..sfi|
|00000480| 6c 65 09 3a 09 53 74 72 | 69 6e 67 50 74 72 3b 09 |le.:.Str|ingPtr;.|
|00000490| 09 09 7b 20 61 64 64 72 | 65 73 73 20 6f 66 20 73 |..{ addr|ess of s|
|000004a0| 6f 75 72 63 65 20 66 69 | 6c 65 20 6e 61 6d 65 20 |ource fi|le name |
|000004b0| 7d 0d 09 64 66 69 6c 65 | 09 3a 09 53 74 72 69 6e |}..dfile|.:.Strin|
|000004c0| 67 50 74 72 3b 09 09 09 | 7b 20 61 64 64 72 65 73 |gPtr;...|{ addres|
|000004d0| 73 20 6f 66 20 6f 75 74 | 70 75 74 20 66 69 6c 65 |s of out|put file|
|000004e0| 20 6e 61 6d 65 20 7d 0d | 09 70 61 72 6d 73 09 3a | name }.|.parms.:|
|000004f0| 09 53 74 72 69 6e 67 50 | 74 72 3b 09 09 09 7b 20 |.StringP|tr;...{ |
|00000500| 61 64 64 72 65 73 73 20 | 6f 66 20 70 61 72 61 6d |address |of param|
|00000510| 74 65 72 20 6c 69 73 74 | 20 7d 0d 09 69 73 74 72 |ter list| }..istr|
|00000520| 69 6e 67 09 3a 09 53 74 | 72 69 6e 67 50 74 72 3b |ing.:.St|ringPtr;|
|00000530| 09 09 09 7b 20 61 64 64 | 72 65 73 73 20 6f 66 20 |...{ add|ress of |
|00000540| 6c 61 6e 67 75 61 67 65 | 20 73 70 65 63 69 66 69 |language| specifi|
|00000550| 63 20 69 6e 70 75 74 20 | 73 74 72 69 6e 67 20 7d |c input |string }|
|00000560| 0d 09 6d 65 72 72 09 3a | 09 42 79 74 65 3b 09 09 |..merr.:|.Byte;..|
|00000570| 09 09 7b 20 6d 61 78 20 | 65 72 72 6f 72 20 6c 65 |..{ max |error le|
|00000580| 76 65 6c 20 61 6c 6c 6f | 77 65 64 20 7d 0d 09 6d |vel allo|wed }..m|
|00000590| 65 72 72 66 09 3a 09 42 | 79 74 65 3b 09 09 09 09 |errf.:.B|yte;....|
|000005a0| 7b 20 6d 61 78 20 65 72 | 72 6f 72 20 6c 65 76 65 |{ max er|ror leve|
|000005b0| 6c 20 66 6f 75 6e 64 20 | 7d 0d 09 6c 6f 70 73 09 |l found |}..lops.|
|000005c0| 3a 09 42 79 74 65 3b 09 | 09 09 09 7b 20 6f 70 65 |:.Byte;.|...{ ope|
|000005d0| 72 61 74 69 6f 6e 73 20 | 66 6c 61 67 20 7d 0d 09 |rations |flag }..|
|000005e0| 6b 66 6c 61 67 09 3a 09 | 42 79 74 65 3b 09 09 09 |kflag.:.|Byte;...|
|000005f0| 09 7b 20 4b 45 45 50 20 | 66 6c 61 67 20 7d 0d 09 |.{ KEEP |flag }..|
|00000600| 6d 66 6c 61 67 73 09 3a | 09 4c 6f 6e 67 49 6e 74 |mflags.:|.LongInt|
|00000610| 3b 09 09 09 7b 20 73 65 | 74 20 6f 66 20 6c 65 74 |;...{ se|t of let|
|00000620| 74 65 72 73 20 73 65 6c | 65 63 74 65 64 20 77 69 |ters sel|ected wi|
|00000630| 74 68 20 27 2d 27 20 7d | 0d 09 70 66 6c 61 67 73 |th '-' }|..pflags|
|00000640| 09 3a 09 4c 6f 6e 67 49 | 6e 74 3b 09 09 09 7b 20 |.:.LongI|nt;...{ |
|00000650| 73 65 74 20 6f 66 20 6c | 65 74 74 65 72 73 20 73 |set of l|etters s|
|00000660| 65 6c 65 63 74 65 64 20 | 77 69 74 68 20 27 2b 27 |elected |with '+'|
|00000670| 20 7d 0d 09 6f 72 67 09 | 09 3a 09 4c 6f 6e 67 49 | }..org.|.:.LongI|
|00000680| 6e 74 3b 09 09 09 7b 20 | 61 62 73 20 73 74 61 72 |nt;...{ |abs star|
|00000690| 74 20 61 64 64 72 65 73 | 73 20 6f 66 20 6e 6f 6e |t addres|s of non|
|000006a0| 2d 72 65 6c 6c 6f 63 20 | 6c 6f 61 64 20 66 69 6c |-relloc |load fil|
|000006b0| 65 20 7d 0d 45 4e 44 3b | 0d 0d 7b 20 46 61 73 74 |e }.END;|..{ Fast|
|000006c0| 46 69 6c 65 20 63 61 6c | 6c 20 70 61 72 61 6d 65 |File cal|l parame|
|000006d0| 74 65 72 20 62 6c 6f 63 | 6b 20 66 6f 72 20 6c 65 |ter bloc|k for le|
|000006e0| 76 65 6c 20 30 20 63 61 | 6c 6c 73 20 7d 0d 46 61 |vel 0 ca|lls }.Fa|
|000006f0| 73 74 46 69 6c 65 50 42 | 20 3d 20 50 41 43 4b 45 |stFilePB| = PACKE|
|00000700| 44 20 52 45 43 4f 52 44 | 0d 09 61 63 74 69 6f 6e |D RECORD|..action|
|00000710| 09 3a 09 49 6e 74 65 67 | 65 72 3b 09 09 09 7b 20 |.:.Integ|er;...{ |
|00000720| 61 63 74 69 6f 6e 20 70 | 61 72 61 6d 65 74 65 72 |action p|arameter|
|00000730| 20 7d 0d 09 69 6e 64 65 | 78 09 3a 09 49 6e 74 65 | }..inde|x.:.Inte|
|00000740| 67 65 72 3b 09 09 09 7b | 20 69 6e 64 65 78 20 70 |ger;...{| index p|
|00000750| 61 72 61 6d 65 74 65 72 | 20 7d 0d 09 66 6c 61 67 |arameter| }..flag|
|00000760| 73 09 3a 09 49 6e 74 65 | 67 65 72 3b 09 09 09 7b |s.:.Inte|ger;...{|
|00000770| 20 66 6c 61 67 73 20 70 | 61 72 61 6d 65 74 65 72 | flags p|arameter|
|00000780| 20 7d 0d 09 66 69 6c 65 | 5f 68 61 6e 64 6c 65 20 | }..file|_handle |
|00000790| 3a 20 48 61 6e 64 6c 65 | 3b 09 09 09 7b 20 68 61 |: Handle|;...{ ha|
|000007a0| 6e 64 6c 65 20 74 6f 20 | 63 6f 6e 74 65 6e 74 73 |ndle to |contents|
|000007b0| 20 6f 66 20 66 69 6c 65 | 20 7d 0d 09 66 69 6c 65 | of file| }..file|
|000007c0| 5f 6c 65 6e 67 74 68 20 | 3a 20 4c 6f 6e 67 49 6e |_length |: LongIn|
|000007d0| 74 3b 09 09 09 7b 20 6c | 65 6e 67 74 68 20 6f 66 |t;...{ l|ength of|
|000007e0| 20 66 69 6c 65 20 69 6e | 20 6d 65 6d 6f 72 79 20 | file in| memory |
|000007f0| 7d 0d 09 6e 61 6d 65 09 | 3a 09 53 74 72 69 6e 67 |}..name.|:.String|
|00000800| 50 74 72 3b 09 09 09 7b | 20 6e 61 6d 65 20 6f 66 |Ptr;...{| name of|
|00000810| 20 66 69 6c 65 20 7d 0d | 09 61 63 63 65 73 73 09 | file }.|.access.|
|00000820| 3a 09 49 6e 74 65 67 65 | 72 3b 09 09 09 7b 20 61 |:.Intege|r;...{ a|
|00000830| 63 63 65 73 73 20 61 74 | 74 72 69 62 75 74 65 20 |ccess at|tribute |
|00000840| 7d 0d 09 66 69 6c 65 5f | 74 79 70 65 20 3a 09 49 |}..file_|type :.I|
|00000850| 6e 74 65 67 65 72 3b 09 | 09 09 7b 20 66 69 6c 65 |nteger;.|..{ file|
|00000860| 20 74 79 70 65 20 6f 66 | 20 66 69 6c 65 20 7d 0d | type of| file }.|
|00000870| 09 61 75 78 5f 74 79 70 | 65 20 3a 09 4c 6f 6e 67 |.aux_typ|e :.Long|
|00000880| 49 6e 74 3b 09 09 09 7b | 20 61 75 78 20 74 79 70 |Int;...{| aux typ|
|00000890| 65 20 6f 66 20 66 69 6c | 65 20 7d 0d 09 73 74 6f |e of fil|e }..sto|
|000008a0| 72 61 67 65 5f 74 79 70 | 65 20 3a 20 49 6e 74 65 |rage_typ|e : Inte|
|000008b0| 67 65 72 3b 09 09 09 7b | 20 73 74 6f 72 61 67 65 |ger;...{| storage|
|000008c0| 20 74 79 70 65 20 6f 66 | 20 66 69 6c 65 20 7d 0d | type of| file }.|
|000008d0| 09 63 72 65 61 74 65 5f | 64 61 74 65 20 3a 20 49 |.create_|date : I|
|000008e0| 6e 74 65 67 65 72 3b 09 | 09 09 7b 20 63 72 65 61 |nteger;.|..{ crea|
|000008f0| 74 69 6f 6e 20 64 61 74 | 65 20 6f 66 20 66 69 6c |tion dat|e of fil|
|00000900| 65 20 7d 0d 09 63 72 65 | 61 74 65 5f 74 69 6d 65 |e }..cre|ate_time|
|00000910| 20 3a 20 49 6e 74 65 67 | 65 72 3b 09 09 09 7b 20 | : Integ|er;...{ |
|00000920| 63 72 65 61 74 69 6f 6e | 20 74 69 6d 65 20 6f 66 |creation| time of|
|00000930| 20 66 69 6c 65 20 7d 0d | 09 6d 6f 64 5f 64 61 74 | file }.|.mod_dat|
|00000940| 65 09 3a 20 49 6e 74 65 | 67 65 72 3b 09 09 09 7b |e.: Inte|ger;...{|
|00000950| 20 6d 6f 64 69 66 69 63 | 61 74 69 6f 6e 20 64 61 | modific|ation da|
|00000960| 74 65 20 6f 66 20 66 69 | 6c 65 20 7d 0d 09 6d 6f |te of fi|le }..mo|
|00000970| 64 5f 74 69 6d 65 09 3a | 20 49 6e 74 65 67 65 72 |d_time.:| Integer|
|00000980| 3b 09 09 09 7b 20 6d 6f | 64 69 66 69 63 61 74 69 |;...{ mo|dificati|
|00000990| 6f 6e 20 74 69 6d 65 20 | 6f 66 20 66 69 6c 65 20 |on time |of file |
|000009a0| 7d 0d 09 62 6c 6f 63 6b | 73 5f 75 73 65 64 20 3a |}..block|s_used :|
|000009b0| 20 4c 6f 6e 67 49 6e 74 | 3b 09 09 09 7b 20 62 6c | LongInt|;...{ bl|
|000009c0| 6f 63 6b 73 20 6f 66 20 | 64 69 73 6b 20 73 70 61 |ocks of |disk spa|
|000009d0| 63 65 20 75 73 65 64 20 | 62 79 20 66 69 6c 65 20 |ce used |by file |
|000009e0| 7d 0d 45 4e 44 3b 0d 0d | 7b 20 46 61 73 74 46 69 |}.END;..|{ FastFi|
|000009f0| 6c 65 20 63 61 6c 6c 20 | 70 61 72 61 6d 65 74 65 |le call |paramete|
|00000a00| 72 20 62 6c 6f 63 6b 20 | 66 6f 72 20 6c 65 76 65 |r block |for leve|
|00000a10| 6c 20 31 20 63 61 6c 6c | 73 20 7d 0d 46 61 73 74 |l 1 call|s }.Fast|
|00000a20| 46 69 6c 65 47 53 50 42 | 20 3d 20 50 41 43 4b 45 |FileGSPB| = PACKE|
|00000a30| 44 20 52 45 43 4f 52 44 | 0d 09 70 43 6f 75 6e 74 |D RECORD|..pCount|
|00000a40| 09 3a 09 49 6e 74 65 67 | 65 72 3b 09 09 09 7b 20 |.:.Integ|er;...{ |
|00000a50| 70 61 72 61 6d 65 74 65 | 72 20 63 6f 75 6e 74 20 |paramete|r count |
|00000a60| 7d 0d 09 61 63 74 69 6f | 6e 09 3a 09 49 6e 74 65 |}..actio|n.:.Inte|
|00000a70| 67 65 72 3b 09 09 09 7b | 20 61 63 74 69 6f 6e 20 |ger;...{| action |
|00000a80| 70 61 72 61 6d 65 74 65 | 72 20 7d 0d 09 69 6e 64 |paramete|r }..ind|
|00000a90| 65 78 09 3a 09 49 6e 74 | 65 67 65 72 3b 09 09 09 |ex.:.Int|eger;...|
|00000aa0| 7b 20 69 6e 64 65 78 20 | 70 61 72 61 6d 65 74 65 |{ index |paramete|
|00000ab0| 72 20 7d 0d 09 66 6c 61 | 67 73 09 3a 09 49 6e 74 |r }..fla|gs.:.Int|
|00000ac0| 65 67 65 72 3b 09 09 09 | 7b 20 66 6c 61 67 73 20 |eger;...|{ flags |
|00000ad0| 70 61 72 61 6d 65 74 65 | 72 20 7d 0d 09 66 69 6c |paramete|r }..fil|
|00000ae0| 65 48 61 6e 64 6c 65 20 | 3a 20 48 61 6e 64 6c 65 |eHandle |: Handle|
|00000af0| 3b 09 09 09 7b 20 68 61 | 6e 64 6c 65 20 74 6f 20 |;...{ ha|ndle to |
|00000b00| 63 6f 6e 74 65 6e 74 73 | 20 6f 66 20 66 69 6c 65 |contents| of file|
|00000b10| 20 7d 0d 09 70 61 74 68 | 4e 61 6d 65 20 3a 09 50 | }..path|Name :.P|
|00000b20| 74 72 3b 0d 09 61 63 63 | 65 73 73 09 3a 09 49 6e |tr;..acc|ess.:.In|
|00000b30| 74 65 67 65 72 3b 09 09 | 09 7b 20 61 63 63 65 73 |teger;..|.{ acces|
|00000b40| 73 20 61 74 74 72 69 62 | 75 74 65 20 7d 0d 09 66 |s attrib|ute }..f|
|00000b50| 69 6c 65 54 79 70 65 20 | 3a 09 49 6e 74 65 67 65 |ileType |:.Intege|
|00000b60| 72 3b 09 09 09 7b 20 66 | 69 6c 65 20 74 79 70 65 |r;...{ f|ile type|
|00000b70| 20 6f 66 20 66 69 6c 65 | 20 7d 0d 09 61 75 78 54 | of file| }..auxT|
|00000b80| 79 70 65 09 3a 09 4c 6f | 6e 67 49 6e 74 3b 09 09 |ype.:.Lo|ngInt;..|
|00000b90| 09 7b 20 61 75 78 20 74 | 79 70 65 20 6f 66 20 66 |.{ aux t|ype of f|
|00000ba0| 69 6c 65 20 7d 0d 09 73 | 74 6f 72 61 67 65 54 79 |ile }..s|torageTy|
|00000bb0| 70 65 20 3a 20 49 6e 74 | 65 67 65 72 3b 09 09 09 |pe : Int|eger;...|
|00000bc0| 7b 20 73 74 6f 72 61 67 | 65 20 74 79 70 65 20 6f |{ storag|e type o|
|00000bd0| 66 20 66 69 6c 65 20 7d | 0d 09 63 72 65 61 74 65 |f file }|..create|
|00000be0| 44 61 74 65 20 3a 20 54 | 69 6d 65 52 65 63 3b 09 |Date : T|imeRec;.|
|00000bf0| 09 09 7b 20 63 72 65 61 | 74 69 6f 6e 20 64 61 74 |..{ crea|tion dat|
|00000c00| 65 20 61 6e 64 20 74 69 | 6d 65 20 7d 0d 09 6d 6f |e and ti|me }..mo|
|00000c10| 64 44 61 74 65 09 3a 09 | 54 69 6d 65 52 65 63 3b |dDate.:.|TimeRec;|
|00000c20| 09 09 09 7b 20 6d 6f 64 | 69 66 69 63 61 74 69 6f |...{ mod|ificatio|
|00000c30| 6e 20 64 61 74 65 20 61 | 6e 64 20 74 69 6d 65 20 |n date a|nd time |
|00000c40| 7d 0d 09 6f 70 74 69 6f | 6e 20 3a 20 52 65 73 75 |}..optio|n : Resu|
|00000c50| 6c 74 42 75 66 32 35 35 | 50 74 72 3b 09 09 7b 20 |ltBuf255|Ptr;..{ |
|00000c60| 6f 70 74 69 6f 6e 20 6c | 69 73 74 20 7d 0d 09 66 |option l|ist }..f|
|00000c70| 69 6c 65 4c 65 6e 67 74 | 68 20 3a 20 4c 6f 6e 67 |ileLengt|h : Long|
|00000c80| 49 6e 74 3b 09 09 09 7b | 20 6c 65 6e 67 74 68 20 |Int;...{| length |
|00000c90| 6f 66 20 66 69 6c 65 20 | 69 6e 20 6d 65 6d 6f 72 |of file |in memor|
|00000ca0| 79 20 7d 0d 09 62 6c 6f | 63 6b 73 55 73 65 64 20 |y }..blo|cksUsed |
|00000cb0| 3a 20 4c 6f 6e 67 49 6e | 74 3b 09 09 09 7b 20 62 |: LongIn|t;...{ b|
|00000cc0| 6c 6f 63 6b 73 20 6f 66 | 20 64 69 73 6b 20 73 70 |locks of| disk sp|
|00000cd0| 61 63 65 20 75 73 65 64 | 20 62 79 20 66 69 6c 65 |ace used| by file|
|00000ce0| 20 7d 0d 45 4e 44 3b 0d | 0d 7b 20 70 61 72 61 6d | }.END;.|.{ param|
|00000cf0| 65 74 65 72 20 62 6c 6f | 63 6b 20 66 6f 72 20 47 |eter blo|ck for G|
|00000d00| 65 74 49 4f 44 65 76 69 | 63 65 73 20 61 6e 64 20 |etIODevi|ces and |
|00000d10| 53 65 74 49 4f 44 65 76 | 69 63 65 73 20 63 61 6c |SetIODev|ices cal|
|00000d20| 6c 73 20 7d 0d 49 4f 44 | 65 76 50 42 50 74 72 20 |ls }.IOD|evPBPtr |
|00000d30| 3d 20 5e 49 4f 44 65 76 | 50 42 3b 0d 49 4f 44 65 |= ^IODev|PB;.IODe|
|00000d40| 76 50 42 20 3d 20 50 41 | 43 4b 45 44 20 52 45 43 |vPB = PA|CKED REC|
|00000d50| 4f 52 44 0d 09 6f 75 74 | 70 75 74 5f 74 79 70 65 |ORD..out|put_type|
|00000d60| 09 3a 09 49 6e 74 65 67 | 65 72 3b 0d 09 6f 75 74 |.:.Integ|er;..out|
|00000d70| 70 75 74 5f 61 64 64 72 | 09 3a 09 50 72 6f 63 50 |put_addr|.:.ProcP|
|00000d80| 74 72 3b 0d 09 65 72 72 | 6f 72 5f 74 79 70 65 09 |tr;..err|or_type.|
|00000d90| 3a 09 49 6e 74 65 67 65 | 72 3b 0d 09 65 72 72 6f |:.Intege|r;..erro|
|00000da0| 72 5f 61 64 64 72 09 3a | 09 50 72 6f 63 50 74 72 |r_addr.:|.ProcPtr|
|00000db0| 3b 0d 09 69 6e 70 75 74 | 5f 74 79 70 65 09 3a 09 |;..input|_type.:.|
|00000dc0| 49 6e 74 65 67 65 72 3b | 0d 09 69 6e 70 75 74 5f |Integer;|..input_|
|00000dd0| 61 64 64 72 09 3a 09 50 | 72 6f 63 50 74 72 3b 0d |addr.:.P|rocPtr;.|
|00000de0| 45 4e 44 3b 0d 0d 49 4f | 44 65 76 47 53 50 42 50 |END;..IO|DevGSPBP|
|00000df0| 74 72 20 3d 20 5e 49 4f | 44 65 76 47 53 50 42 3b |tr = ^IO|DevGSPB;|
|00000e00| 0d 49 4f 44 65 76 47 53 | 50 42 20 3d 20 50 41 43 |.IODevGS|PB = PAC|
|00000e10| 4b 45 44 20 52 45 43 4f | 52 44 0d 09 70 43 6f 75 |KED RECO|RD..pCou|
|00000e20| 6e 74 09 09 3a 09 49 6e | 74 65 67 65 72 3b 0d 09 |nt..:.In|teger;..|
|00000e30| 6f 75 74 70 75 74 54 79 | 70 65 09 3a 09 49 6e 74 |outputTy|pe.:.Int|
|00000e40| 65 67 65 72 3b 0d 09 6f | 75 74 70 75 74 41 64 64 |eger;..o|utputAdd|
|00000e50| 72 09 3a 09 50 72 6f 63 | 50 74 72 3b 0d 09 65 72 |r.:.Proc|Ptr;..er|
|00000e60| 72 6f 72 54 79 70 65 09 | 3a 09 49 6e 74 65 67 65 |rorType.|:.Intege|
|00000e70| 72 3b 0d 09 65 72 72 6f | 72 41 64 64 72 09 3a 09 |r;..erro|rAddr.:.|
|00000e80| 50 72 6f 63 50 74 72 3b | 0d 09 69 6e 70 75 74 54 |ProcPtr;|..inputT|
|00000e90| 79 70 65 09 3a 09 49 6e | 74 65 67 65 72 3b 0d 09 |ype.:.In|teger;..|
|00000ea0| 69 6e 70 75 74 41 64 64 | 72 09 3a 09 50 72 6f 63 |inputAdd|r.:.Proc|
|00000eb0| 50 74 72 3b 0d 45 4e 44 | 3b 0d 0d 7b 20 47 65 74 |Ptr;.END|;..{ Get|
|00000ec0| 43 6f 6d 6d 61 6e 64 20 | 63 61 6c 6c 20 70 61 72 |Command |call par|
|00000ed0| 61 6d 65 74 65 72 20 62 | 6c 6f 63 6b 20 7d 0d 47 |ameter b|lock }.G|
|00000ee0| 65 74 43 6f 6d 6d 61 6e | 64 50 42 20 3d 20 50 41 |etComman|dPB = PA|
|00000ef0| 43 4b 45 44 20 52 45 43 | 4f 52 44 0d 09 69 6e 64 |CKED REC|ORD..ind|
|00000f00| 65 78 09 3a 09 49 6e 74 | 65 67 65 72 3b 0d 09 72 |ex.:.Int|eger;..r|
|00000f10| 65 73 74 61 72 74 09 3a | 09 49 6e 74 65 67 65 72 |estart.:|.Integer|
|00000f20| 3b 0d 09 5f 5f 72 65 73 | 65 72 76 65 64 5f 5f 20 |;..__res|erved__ |
|00000f30| 3a 20 49 6e 74 65 67 65 | 72 3b 0d 09 63 6f 6d 6d |: Intege|r;..comm|
|00000f40| 61 6e 64 09 3a 09 49 6e | 74 65 67 65 72 3b 0d 09 |and.:.In|teger;..|
|00000f50| 6e 61 6d 65 09 3a 09 41 | 72 72 61 79 5b 30 2e 2e |name.:.A|rray[0..|
|00000f60| 31 35 5d 20 6f 66 20 43 | 68 61 72 3b 0d 45 4e 44 |15] of C|har;.END|
|00000f70| 3b 0d 0d 47 65 74 43 6f | 6d 6d 61 6e 64 47 53 50 |;..GetCo|mmandGSP|
|00000f80| 42 50 74 72 20 3d 20 5e | 47 65 74 43 6f 6d 6d 61 |BPtr = ^|GetComma|
|00000f90| 6e 64 47 53 50 42 3b 0d | 47 65 74 43 6f 6d 6d 61 |ndGSPB;.|GetComma|
|00000fa0| 6e 64 47 53 50 42 20 3d | 20 50 41 43 4b 45 44 20 |ndGSPB =| PACKED |
|00000fb0| 52 45 43 4f 52 44 0d 09 | 70 43 6f 75 6e 74 09 3a |RECORD..|pCount.:|
|00000fc0| 09 49 6e 74 65 67 65 72 | 3b 0d 09 69 6e 64 65 78 |.Integer|;..index|
|00000fd0| 09 3a 09 49 6e 74 65 67 | 65 72 3b 0d 09 72 65 73 |.:.Integ|er;..res|
|00000fe0| 74 61 72 74 09 3a 09 49 | 6e 74 65 67 65 72 3b 0d |tart.:.I|nteger;.|
|00000ff0| 09 5f 5f 72 65 73 65 72 | 76 65 64 5f 5f 20 3a 20 |.__reser|ved__ : |
|00001000| 49 6e 74 65 67 65 72 3b | 0d 09 63 6f 6d 6d 61 6e |Integer;|..comman|
|00001010| 64 09 3a 09 49 6e 74 65 | 67 65 72 3b 0d 09 6e 61 |d.:.Inte|ger;..na|
|00001020| 6d 65 09 3a 09 53 74 72 | 69 6e 67 5b 31 35 5d 3b |me.:.Str|ing[15];|
|00001030| 0d 45 4e 44 3b 0d 0d 7b | 20 43 68 61 6e 67 65 56 |.END;..{| ChangeV|
|00001040| 65 63 74 6f 72 20 63 61 | 6c 6c 20 70 61 72 61 6d |ector ca|ll param|
|00001050| 65 74 65 72 20 62 6c 6f | 63 6b 20 7d 0d 43 68 61 |eter blo|ck }.Cha|
|00001060| 6e 67 65 56 65 63 74 6f | 72 50 42 20 3d 20 50 41 |ngeVecto|rPB = PA|
|00001070| 43 4b 45 44 20 52 45 43 | 4f 52 44 0d 09 5f 5f 72 |CKED REC|ORD..__r|
|00001080| 65 73 65 72 76 65 64 5f | 5f 20 3a 09 49 6e 74 65 |eserved_|_ :.Inte|
|00001090| 67 65 72 3b 0d 09 76 65 | 63 74 6f 72 09 09 3a 09 |ger;..ve|ctor..:.|
|000010a0| 49 6e 74 65 67 65 72 3b | 0d 09 70 72 6f 63 50 74 |Integer;|..procPt|
|000010b0| 72 09 09 3a 09 50 72 6f | 63 50 74 72 3b 0d 09 6f |r..:.Pro|cPtr;..o|
|000010c0| 6c 64 50 72 6f 63 50 74 | 72 09 3a 09 50 72 6f 63 |ldProcPt|r.:.Proc|
|000010d0| 50 74 72 3b 0d 45 4e 44 | 3b 0d 0d 43 68 61 6e 67 |Ptr;.END|;..Chang|
|000010e0| 65 56 65 63 74 6f 72 47 | 53 50 42 20 3d 20 50 41 |eVectorG|SPB = PA|
|000010f0| 43 4b 45 44 20 52 45 43 | 4f 52 44 0d 09 70 43 6f |CKED REC|ORD..pCo|
|00001100| 75 6e 74 09 09 3a 09 49 | 6e 74 65 67 65 72 3b 0d |unt..:.I|nteger;.|
|00001110| 09 5f 5f 72 65 73 65 72 | 76 65 64 5f 5f 20 3a 09 |.__reser|ved__ :.|
|00001120| 49 6e 74 65 67 65 72 3b | 0d 09 76 65 63 74 6f 72 |Integer;|..vector|
|00001130| 09 09 3a 09 49 6e 74 65 | 67 65 72 3b 0d 09 70 72 |..:.Inte|ger;..pr|
|00001140| 6f 63 50 74 72 09 09 3a | 09 50 72 6f 63 50 74 72 |ocPtr..:|.ProcPtr|
|00001150| 3b 0d 09 6f 6c 64 50 72 | 6f 63 50 74 72 09 3a 09 |;..oldPr|ocPtr.:.|
|00001160| 50 72 6f 63 50 74 72 3b | 0d 45 4e 44 3b 0d 0d 7b |ProcPtr;|.END;..{|
|00001170| 20 70 61 72 61 6d 65 74 | 65 72 20 62 6c 6f 63 6b | paramet|er block|
|00001180| 20 66 6f 72 20 6c 65 76 | 65 6c 20 31 20 4e 65 78 | for lev|el 1 Nex|
|00001190| 74 57 69 6c 64 63 61 72 | 64 20 63 61 6c 6c 20 7d |tWildcar|d call }|
|000011a0| 0d 4e 65 78 74 57 69 6c | 64 63 61 72 64 47 53 50 |.NextWil|dcardGSP|
|000011b0| 42 20 3d 20 50 41 43 4b | 45 44 20 52 45 43 4f 52 |B = PACK|ED RECOR|
|000011c0| 44 0d 09 70 43 6f 75 6e | 74 09 09 3a 09 49 6e 74 |D..pCoun|t..:.Int|
|000011d0| 65 67 65 72 3b 0d 09 70 | 61 74 68 4e 61 6d 65 09 |eger;..p|athName.|
|000011e0| 3a 09 52 65 73 75 6c 74 | 42 75 66 32 35 35 50 74 |:.Result|Buf255Pt|
|000011f0| 72 3b 0d 09 61 63 63 65 | 73 73 09 09 3a 09 49 6e |r;..acce|ss..:.In|
|00001200| 74 65 67 65 72 3b 0d 09 | 66 69 6c 65 54 79 70 65 |teger;..|fileType|
|00001210| 09 3a 09 49 6e 74 65 67 | 65 72 3b 0d 09 61 75 78 |.:.Integ|er;..aux|
|00001220| 54 79 70 65 09 09 3a 09 | 4c 6f 6e 67 49 6e 74 3b |Type..:.|LongInt;|
|00001230| 0d 09 73 74 6f 72 61 67 | 65 54 79 70 65 09 3a 09 |..storag|eType.:.|
|00001240| 49 6e 74 65 67 65 72 3b | 0d 09 63 72 65 61 74 65 |Integer;|..create|
|00001250| 44 61 74 65 09 3a 09 54 | 69 6d 65 52 65 63 3b 0d |Date.:.T|imeRec;.|
|00001260| 09 6d 6f 64 44 61 74 65 | 09 09 3a 09 54 69 6d 65 |.modDate|..:.Time|
|00001270| 52 65 63 3b 0d 09 6f 70 | 74 69 6f 6e 09 09 3a 09 |Rec;..op|tion..:.|
|00001280| 50 74 72 3b 0d 09 45 4f | 46 09 09 09 3a 09 4c 6f |Ptr;..EO|F...:.Lo|
|00001290| 6e 67 49 6e 74 3b 0d 09 | 62 6c 6f 63 6b 73 55 73 |ngInt;..|blocksUs|
|000012a0| 65 64 09 3a 09 4c 6f 6e | 67 49 6e 74 3b 0d 09 72 |ed.:.Lon|gInt;..r|
|000012b0| 65 73 6f 75 72 63 65 45 | 4f 46 09 3a 09 4c 6f 6e |esourceE|OF.:.Lon|
|000012c0| 67 49 6e 74 3b 0d 09 72 | 65 73 6f 75 72 63 65 42 |gInt;..r|esourceB|
|000012d0| 6c 6f 63 6b 73 20 3a 20 | 4c 6f 6e 67 49 6e 74 3b |locks : |LongInt;|
|000012e0| 0d 45 4e 44 3b 0d 0d 50 | 72 6f 63 65 64 75 72 65 |.END;..P|rocedure|
|000012f0| 20 43 48 41 4e 47 45 5f | 56 45 43 54 4f 52 20 28 | CHANGE_|VECTOR (|
|00001300| 20 76 61 72 20 70 62 20 | 3a 20 43 68 61 6e 67 65 | var pb |: Change|
|00001310| 56 65 63 74 6f 72 50 42 | 20 29 20 3b 20 43 3b 0d |VectorPB| ) ; C;.|
|00001320| 50 72 6f 63 65 64 75 72 | 65 20 43 4f 4e 53 4f 4c |Procedur|e CONSOL|
|00001330| 45 5f 4f 55 54 20 28 20 | 6f 43 68 61 72 20 3a 20 |E_OUT ( |oChar : |
|00001340| 43 68 61 72 20 29 20 3b | 20 43 3b 0d 50 52 4f 43 |Char ) ;| C;.PROC|
|00001350| 45 44 55 52 45 20 44 49 | 52 45 43 54 49 4f 4e 20 |EDURE DI|RECTION |
|00001360| 28 20 64 65 76 69 63 65 | 3a 49 6e 74 65 67 65 72 |( device|:Integer|
|00001370| 3b 20 76 61 72 20 64 69 | 72 65 63 74 3a 20 49 6e |; var di|rect: In|
|00001380| 74 65 67 65 72 29 20 20 | 3b 20 43 3b 0d 50 52 4f |teger)  |; C;.PRO|
|00001390| 43 45 44 55 52 45 20 45 | 52 52 4f 52 20 28 20 65 |CEDURE E|RROR ( e|
|000013a0| 72 72 6f 72 43 6f 64 65 | 3a 49 6e 74 65 67 65 72 |rrorCode|:Integer|
|000013b0| 29 20 20 3b 20 43 3b 0d | 50 52 4f 43 45 44 55 52 |)  ; C;.|PROCEDUR|
|000013c0| 45 20 45 58 45 43 55 54 | 45 20 28 20 66 6c 61 67 |E EXECUT|E ( flag|
|000013d0| 3a 49 6e 74 65 67 65 72 | 3b 20 63 6f 6d 6d 3a 50 |:Integer|; comm:P|
|000013e0| 74 72 29 20 20 3b 20 43 | 3b 0d 50 72 6f 63 65 64 |tr)  ; C|;.Proced|
|000013f0| 75 72 65 20 45 58 50 41 | 4e 44 5f 44 45 56 49 43 |ure EXPA|ND_DEVIC|
|00001400| 45 53 28 20 6e 61 6d 65 | 20 3a 20 53 74 72 69 6e |ES( name| : Strin|
|00001410| 67 50 74 72 20 29 3b 20 | 43 3b 0d 50 72 6f 63 65 |gPtr ); |C;.Proce|
|00001420| 64 75 72 65 20 45 58 50 | 4f 52 54 28 76 61 72 69 |dure EXP|ORT(vari|
|00001430| 61 62 6c 65 20 3a 20 53 | 74 72 69 6e 67 50 74 72 |able : S|tringPtr|
|00001440| 3b 20 66 6c 61 67 20 3a | 20 49 6e 74 65 67 65 72 |; flag :| Integer|
|00001450| 29 3b 20 43 3b 0d 50 72 | 6f 63 65 64 75 72 65 20 |); C;.Pr|ocedure |
|00001460| 46 41 53 54 46 49 4c 45 | 28 76 61 72 20 70 62 20 |FASTFILE|(var pb |
|00001470| 3a 20 46 61 73 74 46 69 | 6c 65 50 42 29 3b 20 43 |: FastFi|lePB); C|
|00001480| 3b 0d 50 72 6f 63 65 64 | 75 72 65 20 47 45 54 5f |;.Proced|ure GET_|
|00001490| 43 4f 4d 4d 41 4e 44 28 | 76 61 72 20 70 62 20 3a |COMMAND(|var pb :|
|000014a0| 20 47 65 74 43 6f 6d 6d | 61 6e 64 50 42 29 3b 20 | GetComm|andPB); |
|000014b0| 43 3b 0d 50 72 6f 63 65 | 64 75 72 65 20 47 45 54 |C;.Proce|dure GET|
|000014c0| 5f 49 4f 5f 44 45 56 49 | 43 45 53 28 20 70 62 20 |_IO_DEVI|CES( pb |
|000014d0| 3a 20 49 4f 44 65 76 50 | 42 50 74 72 29 3b 20 43 |: IODevP|BPtr); C|
|000014e0| 3b 0d 46 55 4e 43 54 49 | 4f 4e 20 20 47 45 54 5f |;.FUNCTI|ON  GET_|
|000014f0| 4c 41 4e 47 20 20 3a 20 | 49 6e 74 65 67 65 72 20 |LANG  : |Integer |
|00001500| 3b 20 43 3b 0d 50 52 4f | 43 45 44 55 52 45 20 47 |; C;.PRO|CEDURE G|
|00001510| 45 54 5f 4c 49 4e 46 4f | 20 28 20 50 62 6c 6f 63 |ET_LINFO| ( Pbloc|
|00001520| 6b 50 74 72 3a 47 65 74 | 4c 49 6e 66 6f 50 42 50 |kPtr:Get|LInfoPBP|
|00001530| 74 72 29 20 20 3b 20 43 | 3b 0d 50 52 4f 43 45 44 |tr)  ; C|;.PROCED|
|00001540| 55 52 45 20 47 45 54 5f | 56 41 52 20 28 20 76 61 |URE GET_|VAR ( va|
|00001550| 72 6e 61 6d 65 3a 53 74 | 72 69 6e 67 50 74 72 3b |rname:St|ringPtr;|
|00001560| 20 76 61 6c 75 65 3a 53 | 74 72 69 6e 67 50 74 72 | value:S|tringPtr|
|00001570| 29 20 20 3b 20 43 3b 0d | 50 52 4f 43 45 44 55 52 |)  ; C;.|PROCEDUR|
|00001580| 45 20 49 4e 49 54 5f 57 | 49 4c 44 43 41 52 44 20 |E INIT_W|ILDCARD |
|00001590| 28 20 69 6e 69 74 46 69 | 6c 65 3a 53 74 72 69 6e |( initFi|le:Strin|
|000015a0| 67 50 74 72 3b 20 66 6c | 61 67 73 3a 49 6e 74 65 |gPtr; fl|ags:Inte|
|000015b0| 67 65 72 29 20 20 3b 20 | 43 3b 0d 50 52 4f 43 45 |ger)  ; |C;.PROCE|
|000015c0| 44 55 52 45 20 4e 45 58 | 54 5f 57 49 4c 44 43 41 |DURE NEX|T_WILDCA|
|000015d0| 52 44 20 28 20 6e 65 78 | 74 46 69 6c 65 3a 53 74 |RD ( nex|tFile:St|
|000015e0| 72 69 6e 67 50 74 72 29 | 3b 20 43 3b 0d 50 72 6f |ringPtr)|; C;.Pro|
|000015f0| 63 65 64 75 72 65 20 50 | 4f 50 5f 56 41 52 49 41 |cedure P|OP_VARIA|
|00001600| 42 4c 45 53 3b 0d 09 49 | 6e 6c 69 6e 65 09 24 32 |BLES;..I|nline.$2|
|00001610| 32 2c 20 24 45 31 30 30 | 41 38 2c 20 24 30 31 31 |2, $E100|A8, $011|
|00001620| 37 2c 20 24 30 2c 20 24 | 30 2c 20 24 30 2c 20 24 |7, $0, $|0, $0, $|
|00001630| 30 3b 0d 50 72 6f 63 65 | 64 75 72 65 20 50 55 53 |0;.Proce|dure PUS|
|00001640| 48 5f 56 41 52 49 41 42 | 4c 45 53 3b 0d 09 49 6e |H_VARIAB|LES;..In|
|00001650| 6c 69 6e 65 09 24 32 32 | 2c 20 24 45 31 30 30 41 |line.$22|, $E100A|
|00001660| 38 2c 20 24 30 31 31 38 | 2c 20 24 30 2c 20 24 30 |8, $0118|, $0, $0|
|00001670| 2c 20 24 30 2c 20 24 30 | 2c 20 24 38 46 2c 20 27 |, $0, $0|, $8F, '|
|00001680| 5f 74 6f 6f 6c 45 72 72 | 27 3b 0d 50 52 4f 43 45 |_toolErr|';.PROCE|
|00001690| 44 55 52 45 20 52 45 41 | 44 5f 49 4e 44 45 58 45 |DURE REA|D_INDEXE|
|000016a0| 44 20 28 20 76 61 72 6e | 61 6d 65 3a 53 74 72 69 |D ( varn|ame:Stri|
|000016b0| 6e 67 50 74 72 3b 20 76 | 61 6c 75 65 3a 53 74 72 |ngPtr; v|alue:Str|
|000016c0| 69 6e 67 50 74 72 3b 20 | 69 6e 64 65 78 3a 49 6e |ingPtr; |index:In|
|000016d0| 74 65 67 65 72 29 20 20 | 3b 20 43 3b 0d 50 72 6f |teger)  |; C;.Pro|
|000016e0| 63 65 64 75 72 65 20 52 | 45 41 44 5f 56 41 52 49 |cedure R|EAD_VARI|
|000016f0| 41 42 4c 45 20 28 20 76 | 61 72 6e 61 6d 65 3a 53 |ABLE ( v|arname:S|
|00001700| 74 72 69 6e 67 50 74 72 | 3b 20 76 61 6c 75 65 3a |tringPtr|; value:|
|00001710| 53 74 72 69 6e 67 50 74 | 72 29 3b 20 43 3b 0d 50 |StringPt|r); C;.P|
|00001720| 52 4f 43 45 44 55 52 45 | 20 52 45 44 49 52 45 43 |ROCEDURE| REDIREC|
|00001730| 54 20 28 20 64 65 76 69 | 63 65 3a 49 6e 74 65 67 |T ( devi|ce:Integ|
|00001740| 65 72 3b 20 61 70 70 3a | 49 6e 74 65 67 65 72 3b |er; app:|Integer;|
|00001750| 20 74 68 65 46 69 6c 65 | 3a 53 74 72 69 6e 67 50 | theFile|:StringP|
|00001760| 74 72 29 20 20 3b 20 43 | 3b 0d 50 72 6f 63 65 64 |tr)  ; C|;.Proced|
|00001770| 75 72 65 20 53 45 54 5f | 49 4f 5f 44 45 56 49 43 |ure SET_|IO_DEVIC|
|00001780| 45 53 28 70 62 20 3a 20 | 49 4f 44 65 76 50 42 50 |ES(pb : |IODevPBP|
|00001790| 74 72 29 3b 20 43 3b 0d | 50 52 4f 43 45 44 55 52 |tr); C;.|PROCEDUR|
|000017a0| 45 20 53 45 54 5f 4c 41 | 4e 47 20 28 20 6c 61 6e |E SET_LA|NG ( lan|
|000017b0| 67 75 61 67 65 3a 49 6e | 74 65 67 65 72 29 20 20 |guage:In|teger)  |
|000017c0| 3b 20 43 3b 0d 50 52 4f | 43 45 44 55 52 45 20 53 |; C;.PRO|CEDURE S|
|000017d0| 45 54 5f 4c 49 4e 46 4f | 20 28 20 50 62 6c 6f 63 |ET_LINFO| ( Pbloc|
|000017e0| 6b 50 74 72 3a 47 65 74 | 4c 49 6e 66 6f 50 42 50 |kPtr:Get|LInfoPBP|
|000017f0| 74 72 29 20 20 3b 20 43 | 3b 0d 50 72 6f 63 65 64 |tr)  ; C|;.Proced|
|00001800| 75 72 65 20 53 45 54 5f | 53 54 4f 50 5f 46 4c 41 |ure SET_|STOP_FLA|
|00001810| 47 28 66 6c 61 67 20 3a | 20 49 6e 74 65 67 65 72 |G(flag :| Integer|
|00001820| 29 3b 20 43 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 |); C;.PR|OCEDURE |
|00001830| 53 45 54 5f 56 41 52 20 | 28 20 76 61 72 6e 61 6d |SET_VAR |( varnam|
|00001840| 65 3a 53 74 72 69 6e 67 | 50 74 72 3b 20 76 61 6c |e:String|Ptr; val|
|00001850| 75 65 3a 53 74 72 69 6e | 67 50 74 72 29 20 20 3b |ue:Strin|gPtr)  ;|
|00001860| 20 43 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 20 53 54 | C;.FUNC|TION  ST|
|00001870| 4f 50 20 20 3a 20 49 6e | 74 65 67 65 72 20 3b 20 |OP  : In|teger ; |
|00001880| 43 3b 0d 50 72 6f 63 65 | 64 75 72 65 20 55 4e 53 |C;.Proce|dure UNS|
|00001890| 45 54 5f 56 41 52 49 41 | 42 4c 45 28 20 6e 61 6d |ET_VARIA|BLE( nam|
|000018a0| 65 20 3a 20 53 74 72 69 | 6e 67 50 74 72 20 29 3b |e : Stri|ngPtr );|
|000018b0| 20 43 3b 0d 46 55 4e 43 | 54 49 4f 4e 20 20 56 45 | C;.FUNC|TION  VE|
|000018c0| 52 53 49 4f 4e 20 20 3a | 20 4c 6f 6e 67 69 6e 74 |RSION  :| Longint|
|000018d0| 20 3b 20 43 3b 0d 50 52 | 4f 43 45 44 55 52 45 20 | ; C;.PR|OCEDURE |
|000018e0| 57 52 49 54 45 5f 43 4f | 4e 53 4f 4c 45 20 28 20 |WRITE_CO|NSOLE ( |
|000018f0| 6f 63 68 61 72 3a 43 68 | 61 72 20 29 20 20 3b 20 |ochar:Ch|ar )  ; |
|00001900| 43 3b 0d 0d 7b 09 4e 65 | 77 20 4f 52 43 41 20 32 |C;..{.Ne|w ORCA 2|
|00001910| 2e 30 20 6c 65 76 65 6c | 20 31 20 63 61 6c 6c 73 |.0 level| 1 calls|
|00001920| 09 09 09 09 7d 0d 0d 50 | 72 6f 63 65 64 75 72 65 |....}..P|rocedure|
|00001930| 20 43 68 61 6e 67 65 56 | 65 63 74 6f 72 47 53 28 | ChangeV|ectorGS(|
|00001940| 20 76 61 72 20 70 62 20 | 3a 20 43 68 61 6e 67 65 | var pb |: Change|
|00001950| 56 65 63 74 6f 72 47 53 | 50 42 29 3b 20 43 3b 0d |VectorGS|PB); C;.|
|00001960| 50 72 6f 63 65 64 75 72 | 65 20 43 6f 6e 73 6f 6c |Procedur|e Consol|
|00001970| 65 4f 75 74 47 53 28 20 | 6f 43 68 61 72 20 3a 20 |eOutGS( |oChar : |
|00001980| 43 68 61 72 20 29 3b 20 | 43 3b 0d 46 75 6e 63 74 |Char ); |C;.Funct|
|00001990| 69 6f 6e 20 44 69 72 65 | 63 74 69 6f 6e 47 53 28 |ion Dire|ctionGS(|
|000019a0| 64 65 76 69 63 65 20 3a | 20 49 6e 74 65 67 65 72 |device :| Integer|
|000019b0| 29 20 3a 20 49 6e 74 65 | 67 65 72 3b 20 43 3b 0d |) : Inte|ger; C;.|
|000019c0| 50 72 6f 63 65 64 75 72 | 65 20 45 72 72 6f 72 47 |Procedur|e ErrorG|
|000019d0| 53 28 20 65 72 72 6f 72 | 43 6f 64 65 20 3a 20 49 |S( error|Code : I|
|000019e0| 6e 74 65 67 65 72 20 29 | 3b 20 43 3b 0d 50 72 6f |nteger )|; C;.Pro|
|000019f0| 63 65 64 75 72 65 20 45 | 78 65 63 75 74 65 47 53 |cedure E|xecuteGS|
|00001a00| 28 20 66 6c 61 67 20 3a | 20 49 6e 74 65 67 65 72 |( flag :| Integer|
|00001a10| 3b 20 63 6f 6d 6d 20 3a | 20 50 74 72 29 3b 20 43 |; comm :| Ptr); C|
|00001a20| 3b 0d 46 75 6e 63 74 69 | 6f 6e 20 45 78 70 61 6e |;.Functi|on Expan|
|00001a30| 64 44 65 76 69 63 65 73 | 47 53 28 6e 61 6d 65 20 |dDevices|GS(name |
|00001a40| 3a 20 53 74 72 69 6e 67 | 50 74 72 29 20 3a 20 53 |: String|Ptr) : S|
|00001a50| 74 72 69 6e 67 50 74 72 | 3b 0d 50 72 6f 63 65 64 |tringPtr|;.Proced|
|00001a60| 75 72 65 20 45 78 70 6f | 72 74 47 53 28 6e 61 6d |ure Expo|rtGS(nam|
|00001a70| 65 20 3a 20 53 74 72 69 | 6e 67 50 74 72 3b 20 66 |e : Stri|ngPtr; f|
|00001a80| 6c 61 67 73 20 3a 20 49 | 6e 74 65 67 65 72 29 3b |lags : I|nteger);|
|00001a90| 0d 50 72 6f 63 65 64 75 | 72 65 20 46 61 73 74 46 |.Procedu|re FastF|
|00001aa0| 69 6c 65 47 53 28 76 61 | 72 20 70 62 20 3a 20 46 |ileGS(va|r pb : F|
|00001ab0| 61 73 74 46 69 6c 65 47 | 53 50 42 29 3b 20 43 3b |astFileG|SPB); C;|
|00001ac0| 0d 46 75 6e 63 74 69 6f | 6e 20 47 65 74 43 6f 6d |.Functio|n GetCom|
|00001ad0| 6d 61 6e 64 47 53 28 20 | 69 6e 64 65 78 20 3a 20 |mandGS( |index : |
|00001ae0| 49 6e 74 65 67 65 72 29 | 20 3a 20 47 65 74 43 6f |Integer)| : GetCo|
|00001af0| 6d 6d 61 6e 64 47 53 50 | 42 50 74 72 3b 0d 46 75 |mmandGSP|BPtr;.Fu|
|00001b00| 6e 63 74 69 6f 6e 20 47 | 65 74 49 4f 44 65 76 69 |nction G|etIODevi|
|00001b10| 63 65 73 47 53 20 3a 20 | 49 4f 44 65 76 47 53 50 |cesGS : |IODevGSP|
|00001b20| 42 50 74 72 3b 0d 46 75 | 6e 63 74 69 6f 6e 20 47 |BPtr;.Fu|nction G|
|00001b30| 65 74 4c 61 6e 67 47 53 | 20 3a 20 49 6e 74 65 67 |etLangGS| : Integ|
|00001b40| 65 72 3b 20 43 3b 0d 46 | 75 6e 63 74 69 6f 6e 20 |er; C;.F|unction |
|00001b50| 47 65 74 4c 49 6e 66 6f | 47 53 20 3a 20 47 65 74 |GetLInfo|GS : Get|
|00001b60| 4c 49 6e 66 6f 47 53 50 | 42 50 74 72 3b 0d 46 75 |LInfoGSP|BPtr;.Fu|
|00001b70| 6e 63 74 69 6f 6e 20 47 | 65 74 56 61 72 47 53 28 |nction G|etVarGS(|
|00001b80| 20 76 61 72 69 61 62 6c | 65 20 3a 20 53 74 72 69 | variabl|e : Stri|
|00001b90| 6e 67 50 74 72 29 20 3a | 20 53 74 72 69 6e 67 50 |ngPtr) :| StringP|
|00001ba0| 74 72 3b 0d 50 72 6f 63 | 65 64 75 72 65 20 49 6e |tr;.Proc|edure In|
|00001bb0| 69 74 57 69 6c 64 63 61 | 72 64 47 53 28 6e 61 6d |itWildca|rdGS(nam|
|00001bc0| 65 20 3a 20 53 74 72 69 | 6e 67 50 74 72 3b 20 66 |e : Stri|ngPtr; f|
|00001bd0| 6c 61 67 73 20 3a 20 49 | 6e 74 65 67 65 72 29 3b |lags : I|nteger);|
|00001be0| 0d 46 75 6e 63 74 69 6f | 6e 20 4e 65 78 74 57 69 |.Functio|n NextWi|
|00001bf0| 6c 64 63 61 72 64 47 53 | 20 3a 20 53 74 72 69 6e |ldcardGS| : Strin|
|00001c00| 67 50 74 72 3b 0d 50 72 | 6f 63 65 64 75 72 65 20 |gPtr;.Pr|ocedure |
|00001c10| 50 6f 70 56 61 72 69 61 | 62 6c 65 73 47 53 3b 0d |PopVaria|blesGS;.|
|00001c20| 50 72 6f 63 65 64 75 72 | 65 20 50 75 73 68 56 61 |Procedur|e PushVa|
|00001c30| 72 69 61 62 6c 65 73 47 | 53 3b 0d 50 72 6f 63 65 |riablesG|S;.Proce|
|00001c40| 64 75 72 65 20 52 65 61 | 64 49 6e 64 65 78 65 64 |dure Rea|dIndexed|
|00001c50| 47 53 28 76 61 72 20 6e | 61 6d 65 2c 20 76 61 6c |GS(var n|ame, val|
|00001c60| 75 65 20 3a 20 53 74 72 | 69 6e 67 50 74 72 3b 20 |ue : Str|ingPtr; |
|00001c70| 69 6e 64 65 78 20 3a 20 | 49 6e 74 65 67 65 72 29 |index : |Integer)|
|00001c80| 3b 0d 46 75 6e 63 74 69 | 6f 6e 20 52 65 61 64 56 |;.Functi|on ReadV|
|00001c90| 61 72 69 61 62 6c 65 47 | 53 28 6e 61 6d 65 20 3a |ariableG|S(name :|
|00001ca0| 20 53 74 72 69 6e 67 50 | 74 72 29 20 3a 20 53 74 | StringP|tr) : St|
|00001cb0| 72 69 6e 67 50 74 72 3b | 0d 50 72 6f 63 65 64 75 |ringPtr;|.Procedu|
|00001cc0| 72 65 20 52 65 64 69 72 | 65 63 74 47 53 28 64 65 |re Redir|ectGS(de|
|00001cd0| 76 69 63 65 2c 20 61 70 | 70 20 3a 20 49 6e 74 65 |vice, ap|p : Inte|
|00001ce0| 67 65 72 3b 20 74 68 65 | 46 69 6c 65 20 3a 20 53 |ger; the|File : S|
|00001cf0| 74 72 69 6e 67 50 74 72 | 29 3b 0d 50 72 6f 63 65 |tringPtr|);.Proce|
|00001d00| 64 75 72 65 20 53 65 74 | 49 4f 44 65 76 69 63 65 |dure Set|IODevice|
|00001d10| 73 47 53 28 70 61 72 6d | 73 20 3a 20 49 4f 44 65 |sGS(parm|s : IODe|
|00001d20| 76 47 53 50 42 50 74 72 | 29 3b 20 43 3b 0d 50 72 |vGSPBPtr|); C;.Pr|
|00001d30| 6f 63 65 64 75 72 65 20 | 53 65 74 4c 61 6e 67 47 |ocedure |SetLangG|
|00001d40| 53 28 6c 61 6e 67 75 61 | 67 65 20 3a 20 49 6e 74 |S(langua|ge : Int|
|00001d50| 65 67 65 72 29 3b 20 43 | 3b 0d 50 72 6f 63 65 64 |eger); C|;.Proced|
|00001d60| 75 72 65 20 53 65 74 4c | 49 6e 66 6f 47 53 28 70 |ure SetL|InfoGS(p|
|00001d70| 61 72 6d 73 50 74 72 20 | 3a 20 47 65 74 4c 49 6e |armsPtr |: GetLIn|
|00001d80| 66 6f 47 53 50 42 50 74 | 72 29 3b 0d 50 72 6f 63 |foGSPBPt|r);.Proc|
|00001d90| 65 64 75 72 65 20 53 65 | 74 53 74 6f 70 46 6c 61 |edure Se|tStopFla|
|00001da0| 67 47 53 28 66 6c 61 67 | 20 3a 20 49 6e 74 65 67 |gGS(flag| : Integ|
|00001db0| 65 72 29 3b 20 43 3b 0d | 50 72 6f 63 65 64 75 72 |er); C;.|Procedur|
|00001dc0| 65 20 53 65 74 56 61 72 | 47 53 28 6e 61 6d 65 2c |e SetVar|GS(name,|
|00001dd0| 20 76 61 6c 75 65 20 3a | 20 53 74 72 69 6e 67 50 | value :| StringP|
|00001de0| 74 72 3b 20 65 78 70 6f | 72 74 46 6c 61 67 20 3a |tr; expo|rtFlag :|
|00001df0| 20 49 6e 74 65 67 65 72 | 29 3b 0d 46 75 6e 63 74 | Integer|);.Funct|
|00001e00| 69 6f 6e 20 53 74 6f 70 | 47 53 20 3a 20 49 6e 74 |ion Stop|GS : Int|
|00001e10| 65 67 65 72 3b 20 43 3b | 0d 50 72 6f 63 65 64 75 |eger; C;|.Procedu|
|00001e20| 72 65 20 55 6e 73 65 74 | 56 61 72 69 61 62 6c 65 |re Unset|Variable|
|00001e30| 47 53 28 6e 61 6d 65 20 | 3a 20 53 74 72 69 6e 67 |GS(name |: String|
|00001e40| 50 74 72 29 3b 0d 46 75 | 6e 63 74 69 6f 6e 20 56 |Ptr);.Fu|nction V|
|00001e50| 65 72 73 69 6f 6e 47 53 | 20 3a 20 4c 6f 6e 67 49 |ersionGS| : LongI|
|00001e60| 6e 74 3b 20 43 3b 0d 50 | 72 6f 63 65 64 75 72 65 |nt; C;.P|rocedure|
|00001e70| 20 57 72 69 74 65 43 6f | 6e 73 6f 6c 65 47 53 28 | WriteCo|nsoleGS(|
|00001e80| 20 6f 43 68 61 72 20 3a | 20 43 68 61 72 29 3b 20 | oChar :| Char); |
|00001e90| 43 3b 0d 0d 49 4d 50 4c | 45 4d 45 4e 54 41 54 49 |C;..IMPL|EMENTATI|
|00001ea0| 4f 4e 0d 45 4e 44 2e 0d | 00 00 00 00 00 00 00 00 |ON.END..|........|
|00001eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f00| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00001f10| fb f1 00 01 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f30| 07 53 68 65 6c 6c 2e 70 | 02 00 00 00 54 45 58 54 |.Shell.p|....TEXT|
|00001f40| 4d 50 53 20 01 00 01 00 | 01 c0 00 00 00 00 3d 9f |MPS ....|......=.|
|00001f50| 00 00 54 45 58 54 4d 50 | 53 20 01 00 01 00 01 c0 |..TEXTMP|S ......|
|00001f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001f70| 00 00 a1 49 a6 80 00 00 | 1e 28 00 00 01 1e 00 00 |...I....|.(......|
|00001f80| 00 00 00 00 00 00 00 00 | 00 00 01 02 00 00 00 00 |........|........|
|00001f90| 00 00 00 00 00 00 00 00 | 00 01 d8 1a 00 01 d0 1a |........|........|
|00001fa0| 00 00 00 00 00 01 00 01 | 00 00 a2 d9 fb f1 00 00 |........|........|
|00001fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fd0| 00 00 00 00 00 00 00 00 | 01 02 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 00 00 01 | e8 1a 00 01 d2 0e 00 00 |........|........|
|00001ff0| 00 00 00 01 00 01 00 00 | a2 d9 fb f1 00 00 00 00 |........|........|
|00002000| 00 00 01 00 00 00 01 00 | 00 00 00 00 00 00 00 1e |........|........|
|00002010| 00 00 00 00 00 00 00 00 | 00 1c 00 1e ff ff 00 00 |........|........|
|00002020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+